home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / vs_804.zip / MAINTSRC.EXE / PICKFLD.PRG < prev    next >
Text File  |  1991-11-25  |  1KB  |  51 lines
  1. * Filename......: PickFld.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Mon  11-25-1991  14:51:52
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9. *
  10. *                 All Forms Of Distribution Prohibited!
  11. *
  12. * Dialect.......: Clipper v5.0x
  13.  
  14. #include "INKEY.CH"
  15. #include "SETCURS.CH"
  16.  
  17. FUNCTION PickFld()
  18. *****
  19. * Pick a field for index building
  20. *****
  21. LOCAL o_Get        := GetActive()
  22. LOCAL c_GetDbfName
  23. LOCAL c_GetFldName
  24. LOCAL c_NtxFldName
  25.  
  26.    IF o_Get = NIL
  27.       RETURN(NIL)
  28.    ENDIF
  29.  
  30.    IF VALTYPE(o_Get:cargo) <> "A"
  31.       RETURN(NIL)
  32.    ENDIF
  33.  
  34.    c_GetDbfName = o_Get:cargo[1]
  35.    c_GetFldName = o_Get:cargo[2]
  36.  
  37.    IF c_GetDbfName <> "_DICTNTX" .OR. c_GetFldName <> "KEY"
  38.       RETURN(NIL)
  39.    ENDIF
  40.  
  41.    IF EMPTY( c_NtxFldName := S_PickFld() )
  42.       RETURN(NIL)
  43.    ENDIF
  44.  
  45.    KEYBOARD ALLTRIM(c_NtxFldName)
  46.  
  47. RETURN(NIL)
  48. *** EOF: ********************************************************************
  49.  
  50.  
  51.